home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / intrfc4.arc / TEST1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-23  |  213 b   |  15 lines
  1. unit test1;
  2. interface
  3.   uses dos,printer;
  4.   type
  5.     color = (red,green,blue);
  6.   const
  7.     a = 1;
  8.     b = 1.1;
  9.     rose = red;
  10.   procedure f(var v);
  11. implementation
  12.   procedure f;
  13.   begin
  14.   end;
  15. end.